Assignment-3

income <- read.csv("D:/OneDrive - West Chester University of PA/Documents/Spring'22/STA553-DataViz/git/Datasets/income_per_person.csv")
pop <- read.csv("D:/OneDrive - West Chester University of PA/Documents/Spring'22/STA553-DataViz/git/Datasets/population_total.csv")
life <- read.csv("D:/OneDrive - West Chester University of PA/Documents/Spring'22/STA553-DataViz/git/Datasets/life_expectancy_years.csv")
countries <- read.csv("D:/OneDrive - West Chester University of PA/Documents/Spring'22/STA553-DataViz/git/Datasets/countries_total.csv")

income.new <- income %>%
  gather(key = "Year", value = "Income", -geo, na.rm=TRUE) %>%
  mutate(Country = geo, Year = substr(Year,2,5)) %>%
  select(-geo)

life.new <- life %>%
  gather(key = "Year", value = "Life", -geo, na.rm=TRUE) %>%
  mutate(Country = geo, Year = substr(Year,2,5)) %>%
  select(-geo)
life.new

pop.new <- pop %>%
  gather(key = "Year", value = "pop", -geo, na.rm=TRUE) %>%
  mutate(Country = geo, Year = substr(Year,2,5)) %>%
  select(-geo)
pop.new

LifeExpIncom <- merge(income.new, life.new, by = c("Country","Year"))
LifeIncomCoun <- merge(LifeExpIncom, countries, by.x = "Country", by.y = "name")
LifeIncomCoun <- select(LifeIncomCoun, Year, Country, region, Income, Life)
final.data <- merge(LifeIncomCoun, pop.new, by = c("Country","Year"))

comp1 <- filter(final.data, Year == 2015)

plot_ly(
  data = comp1,
  x = ~Income,  # Horizontal axis 
  y = ~Life,   # Vertical axis 
  color = ~Country,  # must be a numeric factor
  size = ~pop,
  type = "scatter",
  mode = "markers",
  text = ~Country,
  alpha = 0.6,
  hovertemplate = paste("<b>Income: %{x:$,}</b>",
                          "<br><b>Life: %{y:,}</b>",
                          "<br><b>Population: %{marker.size:,.0f}</b>",
                          '<br><b> %{text}</b>'))

Warning in RColorBrewer::brewer.pal(N, "Set2") :
  n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

Warning in RColorBrewer::brewer.pal(N, "Set2") :
  n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

Warning in RColorBrewer::brewer.pal(N, "Set2") :
  n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

Warning in RColorBrewer::brewer.pal(N, "Set2") :
  n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

p <- ggplot(data = final.data, mapping = aes(x = Income,
                                             y = Life,
                                             size = pop,
                                             color = Country
                                             )) +
  geom_point(alpha = 0.5, show.legend = FALSE) +
  scale_color_viridis_d() +      # color pallets 
  scale_size(range = c(2, 12)) +
  scale_x_log10() +
  labs(title = 'Year: {frame_time}',
       x = 'Income',
       y = 'life expectancy') +
  transition_time(Year) +
  ease_aes('linear')

animate(p, renderer = gifski_renderer(),
          rewind = TRUE)

Rendering [>------------------------------------------------------] at 3.9 fps ~ eta: 13s
Rendering [=>-----------------------------------------------------] at 3.6 fps ~ eta: 13s
Rendering [==>----------------------------------------------------] at 3.4 fps ~ eta: 14s
Rendering [===>---------------------------------------------------] at 3.1 fps ~ eta: 15s
Rendering [=====>-------------------------------------------------] at 3.1 fps ~ eta: 15s
Rendering [======>--------------------------------------------------] at 3 fps ~ eta: 14s
Rendering [=======>-----------------------------------------------] at 3.1 fps ~ eta: 14s
Rendering [========>----------------------------------------------] at 3.1 fps ~ eta: 13s
Rendering [=========>---------------------------------------------] at 3.1 fps ~ eta: 13s
Rendering [==========>--------------------------------------------] at 3.1 fps ~ eta: 13s
Rendering [===========>-------------------------------------------] at 3.1 fps ~ eta: 12s
Rendering [============>------------------------------------------] at 3.1 fps ~ eta: 12s
Rendering [=============>-----------------------------------------] at 3.1 fps ~ eta: 12s
Rendering [==============>----------------------------------------] at 3.1 fps ~ eta: 12s
Rendering [===============>---------------------------------------] at 3.1 fps ~ eta: 11s
Rendering [=================>-------------------------------------] at 3.1 fps ~ eta: 11s
Rendering [==================>------------------------------------] at 3.1 fps ~ eta: 11s
Rendering [===================>-----------------------------------] at 3.1 fps ~ eta: 10s
Rendering [====================>----------------------------------] at 3.1 fps ~ eta: 10s
Rendering [=====================>---------------------------------] at 3.1 fps ~ eta: 10s
Rendering [======================>--------------------------------] at 3.1 fps ~ eta:  9s
Rendering [=======================>-------------------------------] at 3.1 fps ~ eta:  9s
Rendering [========================>------------------------------] at 3.1 fps ~ eta:  9s
Rendering [=========================>-----------------------------] at 3.1 fps ~ eta:  8s
Rendering [===========================>---------------------------] at 3.1 fps ~ eta:  8s
Rendering [============================>--------------------------] at 3.1 fps ~ eta:  8s
Rendering [=============================>-------------------------] at 3.1 fps ~ eta:  7s
Rendering [==============================>------------------------] at 3.1 fps ~ eta:  7s
Rendering [===============================>-----------------------] at 3.1 fps ~ eta:  7s
Rendering [================================>----------------------] at 3.1 fps ~ eta:  7s
Rendering [==================================>----------------------] at 3 fps ~ eta:  6s
Rendering [===================================>---------------------] at 3 fps ~ eta:  6s
Rendering [=====================================>-------------------] at 3 fps ~ eta:  6s
Rendering [======================================>------------------] at 3 fps ~ eta:  5s
Rendering [=======================================>-----------------] at 3 fps ~ eta:  5s
Rendering [========================================>----------------] at 3 fps ~ eta:  5s
Rendering [=========================================>---------------] at 3 fps ~ eta:  4s
Rendering [==========================================>--------------] at 3 fps ~ eta:  4s
Rendering [===========================================>-------------] at 3 fps ~ eta:  4s
Rendering [=============================================>-----------] at 3 fps ~ eta:  3s
Rendering [==============================================>----------] at 3 fps ~ eta:  3s
Rendering [===============================================>---------] at 3 fps ~ eta:  3s
Rendering [================================================>--------] at 3 fps ~ eta:  2s
Rendering [=================================================>-------] at 3 fps ~ eta:  2s
Rendering [==================================================>------] at 3 fps ~ eta:  2s
Rendering [===================================================>-----] at 3 fps ~ eta:  1s
Rendering [=====================================================>---] at 3 fps ~ eta:  1s
Rendering [====================================================>--] at 2.9 fps ~ eta:  1s
Rendering [=====================================================>-] at 2.9 fps ~ eta:  0s
Rendering [=======================================================] at 2.9 fps ~ eta:  0s
                                                                                         


Inserting image 1 at 0.00s (1%)...
Inserting image 2 at 0.10s (2%)...
Inserting image 3 at 0.20s (3%)...
Inserting image 4 at 0.30s (4%)...
Inserting image 5 at 0.40s (5%)...
Inserting image 6 at 0.50s (6%)...
Inserting image 7 at 0.60s (7%)...
Inserting image 8 at 0.70s (8%)...
Inserting image 9 at 0.80s (9%)...
Inserting image 10 at 0.90s (10%)...
Inserting image 11 at 1.00s (11%)...
Inserting image 12 at 1.10s (12%)...
Inserting image 13 at 1.20s (13%)...
Inserting image 14 at 1.30s (14%)...
Inserting image 15 at 1.40s (15%)...
Inserting image 16 at 1.50s (16%)...
Inserting image 17 at 1.60s (17%)...
Inserting image 18 at 1.70s (18%)...
Inserting image 19 at 1.80s (19%)...
Inserting image 20 at 1.90s (20%)...
Inserting image 21 at 2.00s (21%)...
Inserting image 22 at 2.10s (22%)...
Inserting image 23 at 2.20s (23%)...
Inserting image 24 at 2.30s (24%)...
Inserting image 25 at 2.40s (25%)...
Inserting image 26 at 2.50s (26%)...
Inserting image 27 at 2.60s (27%)...
Inserting image 28 at 2.70s (28%)...
Inserting image 29 at 2.80s (29%)...
Inserting image 30 at 2.90s (30%)...
Inserting image 31 at 3.00s (31%)...
Inserting image 32 at 3.10s (32%)...
Inserting image 33 at 3.20s (33%)...
Inserting image 34 at 3.30s (34%)...
Inserting image 35 at 3.40s (35%)...
Inserting image 36 at 3.50s (36%)...
Inserting image 37 at 3.60s (37%)...
Inserting image 38 at 3.70s (38%)...
Inserting image 39 at 3.80s (39%)...
Inserting image 40 at 3.90s (40%)...
Inserting image 41 at 4.00s (41%)...
Inserting image 42 at 4.10s (42%)...
Inserting image 43 at 4.20s (43%)...
Inserting image 44 at 4.30s (44%)...
Inserting image 45 at 4.40s (45%)...
Inserting image 46 at 4.50s (46%)...
Inserting image 47 at 4.60s (47%)...
Inserting image 48 at 4.70s (48%)...
Inserting image 49 at 4.80s (49%)...
Inserting image 50 at 4.90s (50%)...
Inserting image 51 at 5.00s (51%)...
Inserting image 52 at 5.10s (52%)...
Inserting image 53 at 5.20s (53%)...
Inserting image 54 at 5.30s (54%)...
Inserting image 55 at 5.40s (55%)...
Inserting image 56 at 5.50s (56%)...
Inserting image 57 at 5.60s (57%)...
Inserting image 58 at 5.70s (58%)...
Inserting image 59 at 5.80s (59%)...
Inserting image 60 at 5.90s (60%)...
Inserting image 61 at 6.00s (61%)...
Inserting image 62 at 6.10s (62%)...
Inserting image 63 at 6.20s (63%)...
Inserting image 64 at 6.30s (64%)...
Inserting image 65 at 6.40s (65%)...
Inserting image 66 at 6.50s (66%)...
Inserting image 67 at 6.60s (67%)...
Inserting image 68 at 6.70s (68%)...
Inserting image 69 at 6.80s (69%)...
Inserting image 70 at 6.90s (70%)...
Inserting image 71 at 7.00s (71%)...
Inserting image 72 at 7.10s (72%)...
Inserting image 73 at 7.20s (73%)...
Inserting image 74 at 7.30s (74%)...
Inserting image 75 at 7.40s (75%)...
Inserting image 76 at 7.50s (76%)...
Inserting image 77 at 7.60s (77%)...
Inserting image 78 at 7.70s (78%)...
Inserting image 79 at 7.80s (79%)...
Inserting image 80 at 7.90s (80%)...
Inserting image 81 at 8.00s (81%)...
Inserting image 82 at 8.10s (82%)...
Inserting image 83 at 8.20s (83%)...
Inserting image 84 at 8.30s (84%)...
Inserting image 85 at 8.40s (85%)...
Inserting image 86 at 8.50s (86%)...
Inserting image 87 at 8.60s (87%)...
Inserting image 88 at 8.70s (88%)...
Inserting image 89 at 8.80s (89%)...
Inserting image 90 at 8.90s (90%)...
Inserting image 91 at 9.00s (91%)...
Inserting image 92 at 9.10s (92%)...
Inserting image 93 at 9.20s (93%)...
Inserting image 94 at 9.30s (94%)...
Inserting image 95 at 9.40s (95%)...
Inserting image 96 at 9.50s (96%)...
Inserting image 97 at 9.60s (97%)...
Inserting image 98 at 9.70s (98%)...
Inserting image 99 at 9.80s (99%)...
Inserting image 100 at 9.90s (100%)...
Encoding to gif... done!

0.1 comp3

borders <- list(color = toRGB("red"))
g <- list(      scope = 'usa',
           projection = list(type = 'albers usa'),
             showland = TRUE,
            landcolor = toRGB("gray95"),
         subunitcolor = toRGB("gray85"),
         countrycolor = toRGB("Red"),
         countrywidth = 2.5,
         subunitwidth = 5.5
       )
###
fig <- plot_geo(df3, x = ~xcoord, y = ~ycoord) %>% 
  add_markers( text = ~paste(X, paste("State: ",STATE), paste("County: ",county),
                             paste("Address: ",ADDRESS), paste("ZIP code: ",ZIPnew),
                             #paste("Arrivals:", cnt), 
                             sep = "<br>"),
              color = ~description, 
              symbol = "circle", 
              size = ~ZIPPOC, 
              hoverinfo = "text")   %>% 
  colorbar(title = "Urban/Rural<br>2")  %>%
  marker = list(line = borders) %>%
  layout( title = 'Urban/Rural Gas Stations in the US', 
          geo = g )

Error in UseMethod("layout") : 
  no applicable method for 'layout' applied to an object of class "list"

result <- unsplit(df.list, f = df$STATE, drop = TRUE)

Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning in x[i] <- value[[j]] :
  number of items to replace is not a multiple of replacement length
Warning: non-unique values when setting 'row.names': ‘10156’, ‘10246’, ‘10272’, ‘10289’, ‘10667’, ‘10764’, ‘11052’, ‘11463’, ‘11485’, ‘11761’, ‘11882’, ‘11897’, ‘1241’, ‘12472’, ‘12503’, ‘12515’, ‘13258’, ‘13265’, ‘13393’, ‘13540’, ‘13608’, ‘1378’, ‘14125’, ‘14265’, ‘14285’, ‘14327’, ‘14372’, ‘14412’, ‘14461’, ‘14562’, ‘14644’, ‘14707’, ‘14973’, ‘15274’, ‘15703’, ‘15705’, ‘1582’, ‘15916’, ‘16151’, ‘16175’, ‘16190’, ‘16299’, ‘1637’, ‘16537’, ‘16577’, ‘16811’, ‘16823’, ‘16962’, ‘16970’, ‘16971’, ‘17021’, ‘17186’, ‘17243’, ‘17336’, ‘17491’, ‘1751’, ‘17797’, ‘17812’, ‘17840’, ‘17861’, ‘17946’, ‘18091’, ‘18546’, ‘1856’, ‘18822’, ‘19004’, ‘19049’, ‘19119’, ‘19123’, ‘19308’, ‘19399’, ‘19526’, ‘19584’, ‘19681’, ‘1985’, ‘19972’, ‘19998’, ‘20775’, ‘20831’, ‘20875’, ‘21251’, ‘21352’, ‘2136’, ‘21608’, ‘21693’, ‘2193’, ‘2198’, ‘2202’, ‘2204’, ‘22073’, ‘22175’, ‘22212’, ‘22322’, ‘22393’, ‘22579’, ‘22804’, ‘22815’, ‘22946’, ‘22989’, ‘23049’, ‘23209’, ‘23530’, ‘23901’, ‘24593’, ‘24726’, ‘24739’, ‘24753’, ‘2521 [... truncated]
Error in `.rowNamesDF<-`(x, value = value) : 
  duplicate 'row.names' are not allowed